home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / guida.dir / 00890_Script_890 < prev    next >
Text File  |  1983-01-30  |  412b  |  12 lines
  1. on blocca
  2.   global percorso
  3.   if count(percorso) > 0 then
  4.     if getlast (percorso) <>  ("#"&the moviepath&the moviename) or getPropAt(percorso, count(percorso)) <> marker(0) then
  5.       set r_movie to "#"&the moviepath&the moviename
  6.       addprop percorso, marker(0),  r_movie
  7.     end if
  8.   else
  9.     set r_movie to "#"&the moviepath&the moviename
  10.     addprop percorso, marker(0),  r_movie
  11.   end if
  12. end